home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok40 / environment / mpgad.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  37 lines
  1. DEFINITION MODULE MPGad;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    MPGad.Def
  4.    :Version.    3.3
  5.    :History.    Mar-90
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  ShareWare
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM Intuition    IMPORT    Gadget;
  14. FROM Graphics    IMPORT    RastPortPtr;
  15.  
  16.  
  17. CONST    MaxChar    = 48;
  18.  
  19.     compgad = 1;    linkgad = 2;     debuggad = 3;
  20.           rungad  = 4;    exgad   = 5;     edgad    = 6;    popgad = 7;
  21.  
  22.           loadgad   = 1;    savegad = 2;    compilgad = 3;    linkergad = 4;
  23.           loadergad = 5;     prggad  = 6;    editgad   = 7;    makegad   = 8;
  24.  
  25. TYPE    BufStrTyp                = ARRAY [0..MaxChar]  OF CHAR;
  26.  
  27. VAR        CompilBuf, LinkerBuf, LoaderBuf,
  28.     PrgBuf, EditBuf                    : BufStrTyp;
  29.  
  30.         CompGad, LinkGad, DebugGad, RunGad, MakeGad,
  31.         ExGad, EdGad, PrgGad, PopGad, LoadGad         : Gadget;
  32.  
  33.  
  34.  PROCEDURE DrawText (rPort : RastPortPtr);
  35.  
  36. END MPGad.Def
  37.